home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / as2db1 / seltable.frm < prev   
Text File  |  1994-01-01  |  2KB  |  93 lines
  1. VERSION 2.00
  2. Begin Form frmSelTable 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Select Table"
  5.    ClientHeight    =   1575
  6.    ClientLeft      =   3090
  7.    ClientTop       =   2700
  8.    ClientWidth     =   5250
  9.    ControlBox      =   0   'False
  10.    Height          =   1980
  11.    Left            =   3030
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   1575
  14.    ScaleWidth      =   5250
  15.    Top             =   2355
  16.    Width           =   5370
  17.    Begin CommandButton Command1 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "&Cancel"
  20.       Height          =   375
  21.       Left            =   2880
  22.       TabIndex        =   3
  23.       Top             =   1080
  24.       Width           =   975
  25.    End
  26.    Begin CommandButton cmdOK 
  27.       Caption         =   "&OK"
  28.       Default         =   -1  'True
  29.       Height          =   375
  30.       Left            =   4080
  31.       TabIndex        =   2
  32.       Top             =   1080
  33.       Width           =   975
  34.    End
  35.    Begin ComboBox cmbSelectTable 
  36.       Height          =   300
  37.       Left            =   480
  38.       TabIndex        =   0
  39.       Top             =   600
  40.       Width           =   4575
  41.    End
  42.    Begin Label Label1 
  43.       Caption         =   "Select a table:"
  44.       Height          =   255
  45.       Left            =   240
  46.       TabIndex        =   1
  47.       Top             =   240
  48.       Width           =   4215
  49.    End
  50. End
  51. Option Explicit
  52.  
  53. Sub cmdOK_Click ()
  54.   'cmbSelectTable.Text = cmbSelectTable.List(cmbSelectTable.ListIndex)
  55.   Form1!lblCurrTable = cmbSelectTable.Text
  56.   Unload Me
  57. End Sub
  58.  
  59. Sub Command1_Click ()
  60.   Unload Me
  61. End Sub
  62.  
  63. Sub CreateList ()
  64.     Dim Msg
  65.     Dim td As TableDef
  66.     Dim db As Database
  67.     Dim tCount, i
  68.  
  69.     On Error GoTo SetError
  70.     Set db = OpenDatabase(Form1!lblCurrDatabase)
  71.     tCount = db.TableDefs.Count
  72.     
  73.     For i = 0 To tCount - 1
  74.       If (db.TableDefs(i).Attributes And DB_SYSTEMOBJECT) = False Then cmbSelectTable.AddItem db.TableDefs(i).Name
  75.     Next
  76.     cmbSelectTable.Text = Form1!lblCurrTable
  77.  
  78.     Exit Sub
  79.  
  80. SetError:
  81.     Msg = Err & " " & Error & NL
  82.     Msg = Msg & " Trying to open database"
  83.     MsgBox Msg
  84.     Unload Me
  85.     Exit Sub
  86.     
  87. End Sub
  88.  
  89. Sub Form_Load ()
  90.   CreateList
  91. End Sub
  92.  
  93.